home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 August / Software of the Month Club 1996 August.iso / pc / dos / edu / mapit14c / install2.fil < prev    next >
Text File  |  1994-04-14  |  9KB  |  357 lines
  1. ' Install script for MAPIT,  Copyright 1992, 1993 John B. Allison
  2. BACKGROUND 63    ' display cyan colored background (see color chart in docs)
  3. LANGUAGE ENGLISH
  4. BORDER 1                                   ' single line borders. 2 = double, 0 = no border
  5. TELESCOPE ON
  6. SHADOW ON
  7.  
  8. WINOPEN 0 2 30
  9. "                 MAPIT Installation               "      ' yellow text
  10.  
  11. WINOPEN 0 0 31
  12. "Shareware MAPIT requires almost 2 MB of space on your hard drive."      
  13. ""
  14. "Where should this data be stored?"
  15.  
  16. WINUPDATE +12 +1 30
  17. "MAPIT"                            ' yellow text
  18.  
  19. PAUSE 200
  20. SPACE 1000                         ' 1 MB initial disk requirements.
  21.  
  22. '  Prompt for the drive to install to:
  23.  
  24. DRIVE C 0 21 31 15 0 14 79
  25. PATH \MAPIT 0 21 31 15 0 14 79
  26.  
  27. WINCLOSE
  28.  
  29. ' --------------------------------------------------------------------------
  30. '  Get load options from user.
  31.  
  32. EXIST ~1~2\DEMO.MP3          
  33. JUMP.NO LOAD_DATA1
  34.  
  35. WINOPEN 0 0 31
  36. "MAPIT data already exists on ~1~2."
  37. ""
  38. "Do you want to overwrite it?"
  39. ""
  40. ""
  41. WINUPDATE +14 +5 27            ' magenta text
  42. "(Y or N)"
  43.  
  44. ASK +22 +5
  45. WINCLOSE
  46. JUMP.YES LOAD_DATA1
  47. JUMP EARLY_OUT
  48.  
  49.  
  50. ' --------------------------------------------------------------------------
  51. '  Load data from distribution disks.
  52. :LOAD_DATA1
  53.  
  54. EXIST ~1~2\README.TXT           '  Avoid copying over itself if installing          
  55. JUMP.YES LOAD_DATA1A            '  from from the target directory.
  56.  
  57. COPY ~0\VENDINFO.DIZ ~1~2\*.* 0 0 31      ' Copy from first disk.
  58. COPY ~0\README.TXT ~1~2\*.* 0 0 31      
  59.  
  60. :LOAD_DATA1A
  61. EXIST ~0\MAPITA.PAK           
  62. JUMP.YES BASEDATA1
  63.  
  64. WINOPEN 0 0 31
  65. "Insert MAPIT Disk 2 into drive ~0."
  66. ""
  67. "Enter Y to continue."
  68.  
  69. WINUPDATE +8 +3 30           ' yellow text
  70. "Y"
  71.  
  72. ASK +25 +3                    ' one method of providing a "conditional" jump
  73. WINCLOSE
  74. JUMP.YES LOAD_DATA1
  75. JUMP EARLY_OUT
  76.  
  77. :BASEDATA1
  78. UNPACK MAPITA.PAK 0 0 31 32 19 79
  79. JUMP.FAIL INSTALL_FAILURE
  80.  
  81. ' --------------------------------------------------------------------------
  82. '  Load second file from same or another disk.
  83. :LOAD_DATA2
  84.  
  85. EXIST ~0\MAPITB.PAK           
  86. JUMP.YES BASEDATA2
  87.  
  88. WINOPEN 0 0 31
  89. "Insert the Next MAPIT Disk into drive ~0."
  90. ""
  91. "Enter Y to continue."
  92.  
  93. WINUPDATE +8 +3 30           ' yellow text
  94. "Y"
  95.  
  96. ASK +25 +3                    ' one method of providing a "conditional" jump
  97. WINCLOSE
  98. JUMP.YES LOAD_DATA2            
  99. JUMP EARLY_OUT
  100.  
  101. :BASEDATA2
  102. UNPACK MAPITB.PAK 0 0 31 32 19 79
  103. JUMP.FAIL INSTALL_FAILURE
  104.  
  105. ' --------------------------------------------------------------------------
  106. '  Load third file from same or another disk.
  107. :LOAD_DATA3
  108.  
  109. EXIST ~0\MAPITC.PAK           
  110. JUMP.YES BASEDATA3
  111.  
  112. WINOPEN 0 0 31
  113. "Insert the Final MAPIT Disk into drive ~0."
  114. ""
  115. "Enter Y to continue."
  116.  
  117. WINUPDATE +8 +3 30           ' yellow text
  118. "Y"
  119.  
  120. ASK +25 +3                    ' one method of providing a "conditional" jump
  121. WINCLOSE
  122. JUMP.YES LOAD_DATA3            
  123. JUMP EARLY_OUT
  124.  
  125. :BASEDATA3
  126. UNPACK MAPITC.PAK 0 0 31 32 19 79
  127. JUMP.FAIL INSTALL_FAILURE
  128.  
  129. '--------------------------------------------------------------------------
  130. ' Concatinate .mp3 files.
  131.  
  132. SHELL
  133. "COPY /B ~1~2\DEMO.MP3+~1~2\DEMOB.MP3 ~1~2\DEMO.MP3"
  134. "DEL ~1~2\DEMOB.MP3"
  135.  
  136. ' -----------------------
  137. ' View the documentation?
  138. ' -----------------------
  139. :VIEW_INSTALL.TXT
  140. WINOPEN 0 0 31
  141. "README.TXT will be left in the directory ~1~2"
  142. ""
  143. "Would you like to view README.TXT on-line now?"
  144. ""
  145. ""
  146.  
  147. WINUPDATE +20 +5 27            ' magenta text
  148. "(Y or N)"
  149.  
  150. ASK +28 +5                     
  151. WINCLOSE                       
  152. JUMP.NO PRINT_INSTALL.TXT      ' again, skip the view command if the user
  153.                                ' hits the "N" key from the above ASK statement.
  154.  
  155. WINOPEN 0 0 31                ' large file takes a while from floppy ...
  156. "Loading..."
  157. VIEW ~1~2\README.TXT 113 31
  158. WINCLOSE                      ' close the above window
  159.  
  160. ' ------------------------
  161. ' Print the documentation?
  162. ' ------------------------
  163. :PRINT_INSTALL.TXT
  164. WINOPEN 0 0 31
  165. "Would you like to print README.TXT?"
  166. ""
  167. ""
  168. WINUPDATE +15 +3 27           ' magenta text
  169. "(Y or N)"
  170.  
  171. ASK +23 +3                    ' one method of providing a "conditional" jump
  172.  
  173. WINCLOSE                      ' close the above window
  174. JUMP.NO VIEW_REGISTRATION
  175.  
  176. WINOPEN 0 0 31                ' printing large file takes a while ...
  177. ""
  178. "  Printing...  "
  179. ""
  180. PRINT ~1~2\README.TXT
  181. WINCLOSE                      ' close the above window
  182. JUMP.FAIL PRINTER_ERROR       ' jump on fatal error
  183. JUMP VIEW_REGISTRATION        ' print successful, skip next
  184.  
  185. :PRINTER_ERROR                ' label for error condition
  186. WINOPEN 0 0 79                ' open the following window
  187. "Your printer is not responding.  Possible problems:"
  188. "   -- Printer is not turned on"
  189. "   -- Printer is out of paper"
  190. "   -- Printer is not attached to LPT1 (parallel port 1)"
  191. ""
  192. "Do you want to try to print again  (Y or N)?"
  193. ASK 57 18                     ' prompt for Y or N key  (fixed cursor position)
  194. WINCLOSE                      ' close this window
  195. JUMP.YES PRINT_INSTALL.TXT    ' y key pressed, print
  196.  
  197. ' ----------------------
  198. ' View the registration?
  199. ' ----------------------
  200. :VIEW_REGISTRATION
  201. WINOPEN 0 0 31
  202. "REGISTER.TXT will be left in the directory ~1~2"
  203. ""
  204. "MAPIT comes with much more detailed data.  Examine your options"
  205. "and register today."
  206. ""
  207. "Would you like to view REGISTER.TXT on-line now?"
  208. ""
  209. ""
  210. WINUPDATE +2 +3 30
  211. "MAPIT"                        ' yellow text
  212. WINUPDATE +28 +8 27            ' magenta text
  213. "(Y or N)"
  214.  
  215. ASK +36 +8                     
  216. WINCLOSE                       
  217. JUMP.NO PRINT_INSTALL_1       ' again, skip the view command if the user
  218.  
  219. WINOPEN 0 0 31                ' large file takes a while from floppy ...
  220. "Loading..."
  221. VIEW ~1~2\REGISTER.TXT 113 31
  222. WINCLOSE                      ' close the above window
  223.  
  224. ' ------------------------
  225. ' Print the registration?
  226. ' ------------------------
  227. :PRINT_INSTALL_1
  228. WINOPEN 0 0 31
  229. "Would you like to print REGISTER.TXT?"
  230. ""
  231. ""
  232. WINUPDATE +15 +3 27           ' magenta text
  233. "(Y or N)"
  234.  
  235. ASK +23 +3                    ' one method of providing a "conditional" jump
  236.  
  237. WINCLOSE                      ' close the above window
  238. JUMP.NO CHECK_HARDWARE
  239.  
  240. WINOPEN 0 0 31                ' printing large file takes a while ...
  241. ""
  242. "  Printing...  "
  243. ""
  244. PRINT ~1~2\REGISTER.TXT
  245. WINCLOSE                      ' close the above window
  246. JUMP.FAIL PRINTER_ERROR_1     ' jump on fatal error
  247. JUMP CHECK_HARDWARE           ' print successful, skip next
  248.  
  249. :PRINTER_ERROR_1              ' label for error condition
  250. WINOPEN 0 0 79                ' open the following window
  251. "Your printer is not responding.  Possible problems:"
  252. "   -- Printer is not turned on"
  253. "   -- Printer is out of paper"
  254. "   -- Printer is not attached to LPT1 (parallel port 1)"
  255. ""
  256. "Do you want to try to print again  (Y or N)?"
  257. ASK 57 18                     ' prompt for Y or N key  (fixed cursor position)
  258. WINCLOSE                      ' close this window
  259. JUMP.YES PRINT_INSTALL_1      ' y key pressed, print
  260.  
  261. '--------------
  262. :CHECK_HARDWARE
  263. '--------------
  264. VIDEO EGA
  265. JUMP.YES CK_MOUSE
  266.  
  267. WINOPEN 0, 0, 31
  268. "MAPIT requires a graphics display."
  269. ""
  270. "An EGA or better is recommended."
  271. ""
  272.  
  273. WINUPDATE +2 +1 30            ' yellow text
  274. "MAPIT"
  275.  
  276. WAIT 2 4
  277.  
  278. :CK_MOUSE
  279. MOUSE 0.0
  280. JUMP.YES EXIT
  281.  
  282. WINOPEN 0, 0, 31
  283. "MAPIT requires a MOUSE."
  284. ""
  285. "This system has no mouse enabled."
  286. ""
  287. "You must install one before running MAPIT."
  288. ""
  289.  
  290. WINUPDATE +2 +1 30            ' yellow text
  291. "MAPIT"
  292. WINUPDATE +37 +5 30           ' yellow text
  293. "MAPIT"
  294.  
  295. WAIT 2 6
  296. JUMP FINI
  297.  
  298. ' ----------------------
  299. ' display closing window
  300. ' ----------------------
  301. :EXIT
  302. WINOPEN 0 0 31
  303. "MAPIT installation is complete."
  304. ""
  305. "Would you like to run MAPIT now?"
  306. ""
  307. ""
  308.  
  309. WINUPDATE +2 +1 30            ' yellow text
  310. "MAPIT"
  311. WINUPDATE +24 +3 30            ' yellow text
  312. "MAPIT"
  313.  
  314. WINUPDATE +15 +5 27            ' magenta text
  315. "(Y or N)"
  316.  
  317. ASK +23 +5
  318. WINCLOSE
  319. JUMP.NO FINI
  320.  
  321. :GO_DEMO
  322. WINOPEN 0 0 31
  323. "Copying COLUMBUS.MP3 to EXTENDED.MP3 and"
  324. ""
  325. "running MAPIT."
  326. WINUPDATE +10 +3 30            ' yellow text
  327. "MAPIT"
  328.  
  329. PAUSE 500
  330.  
  331. PROMPT OFF      ' Turn off copy prompts.
  332. COPY ~1~2\COLUMBUS.MP3 ~1~2\EXTENDED.MP3 0 0 31
  333.  
  334. 'RUN ~1~2\MAPITDEM                   ' Never to return.
  335. RUN ~1~2\MAPIT                   ' Never to return.
  336.  
  337. ' ------------------------
  338. ' exit the system normally
  339. ' ------------------------
  340. :EARLY_OUT
  341.  
  342. :FINI
  343. END
  344.  
  345. :INSTALL_FAILURE
  346. WINOPEN 0 0 79
  347. "THE INSTALLATION PROGRAM FAILED PRIOR TO COMPLETION"
  348. ""
  349. "Possible reasons:"
  350. "   -- The floppy disk was removed prior to completion."
  351. "   -- The floppy disk was damaged during shipping."
  352. "   -- Your disk drive is out of alignment."
  353. ""
  354. "      Press [Enter] to Quit."
  355. WAIT 47 15
  356. JUMP EARLY_OUT
  357.